From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 18 May 2001 12:47:43 +0000 (+0000)
Subject: (goto-address-at-point): Deal with URLs
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~40229
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=42dbaa08d8dd56ca8e9cc62743b656fd96a2a8d1;p=emacs.git

(goto-address-at-point): Deal with URLs
part of which look like email addresses.
---

diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el
index 986489bdd62..bb75508935f 100644
--- a/lisp/net/goto-addr.el
+++ b/lisp/net/goto-addr.el
@@ -201,7 +201,12 @@ there, then load the URL at or before point."
   (interactive)
   (save-excursion
     (let ((address (save-excursion (goto-address-find-address-at-point))))
-      (if address
+      (if (and address 
+	       (save-excursion
+		 (goto-char (previous-single-char-property-change
+			     (point) 'goto-address nil
+			     (line-beginning-position)))
+		 (not (looking-at goto-address-url-regexp))))
 	  (compose-mail address)
 	(let ((url (browse-url-url-at-point)))
 	  (if url